          SUBROUTINE (PASSER)
** Version# 3 - 04/09/2002 - 01:17pm - MIKEF - develop

*** Subroutine - POE
*-------------------------------------------------------------------------*
*** This routine checks POE.ALLOWED auth. key and then calls OE.
*-------------------------------------------------------------------------*
*** Passer - Not used
*-------------------------------------------------------------------------*
*** Common Variables - None used
*-------------------------------------------------------------------------*
          *** Check auth. key to see if this user should be view only.
          VIEW.ONLY = NO
          CHECK.KEY 'POE.ALLOWED',ENTRY.OK,LEVEL
          IF NOT(ENTRY.OK) THEN RETURN
          IF LEVEL < 2 THEN VIEW.ONLY = YES

          OE 'P', SECURITY<21,2>,,,VIEW.ONLY

          RETURN
*-------------------------------------------------------------------------*
!MIKEF~04/09/02~13:17
